ASSMX 0 9980 


HABBO 
DOUD 
0OOB 
BHO 
O20 
OOO 
DOO 
B2O8 
GBO0 
0088 
DOKL 
0008 
OGG 
0B20 
0000 


OOU0. 


O000 
WOO80 
9000 
0200 
OO8B 
0900 
DOB 
OB00 
BOBO 
BB0O 
QBUD 
BYOO 
VOOO 
0601 
0004 
0804 
BUO84 
0004 
BB05 
0208 
6008 
ts 
OO0E 
PB1l 
Q@014 
B817 
OG1A 
GOLA 
OB1D 
0820 
BH23 


F 3 
C3 


88 


00 


0810 
0020 
0030 
0840 
0850 
00960 
0070 
0080 
G09 
0100 
A116 
0120 
01390 
6148 
0158 
0168 
0170 
0180 
J19B 
0280 
0210 
0220 
0230 
0240 
0250 
0260 
0270 
028 

0290 
8380 
0318 
0328 
6338 
0348 
0350 
0360 
8370 
0380 
0390 
0400 
2410 


— 0428 


0430 
0440 
0458 
0469 
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* EXATRON STRINGY FLOPPY MONITOR * 
*PART 1 -= BASIC SYSTEM *# 
* VERSION 2.2 (RAM VERSION) 18-15-78 * 


kakkkkKkKkKkaKKKKK KKK KKKKKK KKK KKK KKKKKKKKRKKKKRK KK 


WRITTEN BY: CHARLIE PACK _ 
25478 ELENA ROAD 
LOS ALTOS HILLS, CA. 


94922 
(415) 941-9495 ji 


EVENINGS 


CHANGES FROM VERSION 2.1 ARE: 

1. REFERENCE TO SOLOS REMOVED FROM "QUIT" 
ROUTINE. | | 

2. LOADER CONTROL BYTES CHANGED TO BE 
COMPATIBLE WITH NEW LINKING LOADER, 

3. EXTERNAL REFERENCE TABLE ADDED FOR USE 
BY PARTS 2 AND 3 OF THE MONITOR. 

4, UPPER BOUND OF PROTECTED AREA CHANGED. 
TO INCLUDE PART 3 OF MONITOR. 


~ + Rw e  & & FH HH HF HF HF 


PSW EQU 6 ;PROGRAM STATUS WORD 
oP EQU 6 ;S9TACK POINTER 
LF EQU MAH ;LINE FEED (CONTROL~J) 


CR EQU @DH *CARRIAGE RETURN (CONTROL=M) 


* INITIAL PROGRAM START IS HERE. 

* 

START DI 
JMP 


*;DISABLE INTERRUPTS 
SIRE I 
* 


* NORMAL RE-START IS AT THIS POINT. 


“D1 >DISABLE INTERRUPTS 
JMP MONTR 

: | 

STRT1 LXI SP,MNSTK ;LOAD STACK POINTER 
CALL TINIT -CONSOLE TERMINAL INIT. 
LXI H,MONTR ;INITIALIZE THE 
SHLD CURAD -CURRENT OPEN ADDRESS 
LXI H,PGMHD ;PROGRAM HEADING 
IMP MSOUT 

* 

DONE &XI H,TMSGD ;DONE 


MSOUT CALL OUTNL — 
CALL OUTBL 


;OTART A NEW LINE 
;SHOW THE MESSAGE 


/ 
2 


D470 
0480 
0490 
0500 
0510 
G520 
0530 
9540 
0558 
9568 
0570 
0589 


* 


akaekKkKkkhkkkkk kkk 


COMMAN D- 


* 


Be ee te te ke te Se de ete eke ie eke ee te ede ete de tk te de ke 


PROCES SOR of 


KKK KA KIKIKKKIKKKHAKKKRKEKKKKAKKKKKK KK KK KKK KKK KKK 


* 


MONTR LXI 


PROMP 


GETCM 


TESTC 


* 
MMORS 


CALL 


CPI 


SP,MNSTK ;LOAD STACK POINTER 


OUTNL 
By’? 
OUTCH 
INASC 
CR 
PROMP 
LF 
GETCM 
OUTCH 
A,B 
21H 
PROMP 
TESTC 


MONTR | 


ue 1 a 
DISPM 
ae 


VERFY 


;OTART A NEW LINE 


;DISPLAY PROMPT CHARACTER 
;GET COMMAND CHARACTER 
;CARRIAGE RETURN? 
;YES, PROMPT AGAIN. 
;LINE FEED? 

7;YES, IGNORE IT. 

;ECHO THE CHARACTER 
;RESTORE IT 

>CONTROL CHARACTER? 
7;YES, PROMPT AGAIN, 
;PROCESS THE COMMAND 


*>D=DISPLAY MEMORY? 
°YES 

-F=FILL MEMORY? 
°YES 

*J=JUMP TO PROGRAM? 
°YES | 

¢M=MEMORY MODIFY/SEARCH? 
*YES 

-Q=QUIT? 

-YES 

*T=BLOCK TRANSFER? 
°YES 

*V=BLOCK VERIFY? 
*YES | 


START+4@0H ;CHECK FOR SECOND 


OF3H 


A,B 


;PART OF ESF MONITOR 
>RETURN IF NOT PRESENT 
>RESTORE COMMAND CHAR, 


START+4@@H ;GO TO SECOND PART 


INASC 
“So 
MSRCH 
"my! 
MODFY 
MMORS 


°>GET 2ND CHAR. OF COMMAND 
eMEMORY SEARCH? 

°YES 

MEMORY MODIFY? 

eYES 


NO87 
0087 
0087 
OBBA 
G88D 
OO8E 
0090 
0092 
0093 
0896 
0099 
OBIC 
OO9F 
OBA2 
BBA5 
OA? 
OOAA 
O@AC 
OBAE 
GOB1 
00B3 
Q@@B5 
08B8 
O8B9I 
QBBC 
OOBF 
G@OC2 
G8C3 
08C6 
O6C7 
OBCA 
GOCB 
VOCE 
Q98D1 
@OBD4 
OOD’ 


82 
00 


A94N 
0950 
0960 
0970 
9980 
0990 
1989 
1918 
1920 
1030 
1040 
1950 
1860 
1870 
1080 
1090 
1100 
1110 
1120 
1130 
1149 
1158 
1160 


1176 


1182 
1198 
12098 
1210 
1220 
1238 
1240 
1250 
1260 
1270 
1282 
1290 


* 


* DISPLAY MEMORY 


* 


DISPM CALL 


DSPM2 


DSPM3 


DSPM4 


DSPM5 


DSPM9 


ADRIN 
DISPM 


H, 
L,15 
D 
ADRIN 
DSPM3 
ADCMP 
BADRN 
WAIT 
ADNEW 


PANIC 
ADCMP 
D 
DSPM9 
Cs 
DSPM5 
B 
DSPM4 
DSPM3 
OUTNL 
DSPM2 


BLOCK 


>GET BEGIN. ADDR IN H=-L 
eMUST ENTER | 
*BEGIN. ADDR TO D-E 


;HL=DEFAULT ENDING ADDR. 
7;GET OPTIONAL ENDING ADDR 
;JUMP IF NOTHING ENTERED 
;VALID ADDRESS RANGE? 


eNO 


;ABORT OR CONTINUE 
;DISPLAY THE ADDRESS 


;FOLLOWED BY A COLON 
;COUNTER FOR FOUR GROUPS 


;1 EXTRA SPACE BETWEEN GRPS 


;FOUR BYTES PER GROUP 


-1 SPACE BETWEEN BYTES 


sDISPLAY A BYTE IN HEX 
-"PANIC CHECK" 
*>CHECK FOR END OF RANGE 


;INCR. 


MEMORY POINTER 


;JUMP IF AT ENDING ADDR 
;AT END OF GROUP? 


*NO 


;AT END OF LINE? 


>= NO 


*JUMP HERE [IF LINE IS FULL 
;START NEW LINE 
;LOOK FOR NEW BEGIN. 


ADDR 


89D7 
88D7 
OOD? 
Q@ODA 
0®DD 
BHED 
OBE3 
QOE6 
OQE7 
OBE8 
®OEB 
09ED 
OVOFO 
OOF2 
BOFS 
BUFO 
BOFI9 
OOFB 
DOFE 
H101 
G104 
0107 
6108 
Q12B 
G10B 
B1BC 
G1i8D 
D1IGE 
O1lll 
GB112 
G113 
®114 
@117 
G118 
O119 


G11C . 


B11F 
G122 
0125 
8128 
612B 
O12E 


CO 


Fl 


1A 
08 
D8 
1A 
74 
E6 
12 


02 


1300 


* 


1310 * MODIFY AND/OR EXAMINE MEMORY. 


1326 * 

133@ MODFY CALL 
1340 LHLD 
1358 CALL 
1360 JZ 
1370 CALL 
1386 MOD1 MOV 
1398 MOV 
1400 CALL 
1418 MVI 
1420 CALL 
1430 MVI 
1449 CALL 
1458 MOV 
1460 CALL 
1470 MVI 
1480 CALL 
1498 SHLD 
1502 CALL 
1518 JNZ 
1520 INX 
1530 JMP 
1548 * 

155@ MOD2 MOV 
1568 MOV 
1570 MOV 
1588 CALL 
1598 MOV 
1680 MOD3 MOV 
1619 INX 
16298 SHLD 
1630 MOV 
1649 ORA 
1658 JZ 
1668 LXI 
1670 CALL 
1688 JZ 
1698 CALL 
1789 JZ 
1719 JMP 


OUTCH 


| ¢"ECHO" 2ND CHAR. OF COMMAND 
CURAD ;LOAD CURRENT OPEN ADDR 
ADRIN ;GET OPTIONAL ADDRESS 
MOD1 ;JUMP IF NOT ENTERED 
WAIT ;CONTINUE OR ABORT 
D,H | 
E,L 
ADNEW ;DISPLAY THE ADDRESS 
By 
OUTCH :COLON 
B, 20H 
OUTCH ;SPACE 
A,M 
OUTHX :DISPLAY THE CONTENTS 
B, ee | 
OUTCH ;:DISPLAY A HYPHEN 
CURAD ;UPDATE CURRENT OPEN ADDR 
INPHX ;LOOK FOR DATA 
MOD2 ;DATA FOUND, GO MODIFY 
H *INCR.e. MEMORY POINTER 
MOD1 ;AND GO EXAMINE NEXT. 
C,A *SAVE DATA 
D,H 
E,L *¢MAKE SURE ADDRESS IS 
ADRCH ;NOT WITHIN MONITOR AREA. 
A,C *RESTORE DATA 
M,A *>STORE NEW DATA IN MEMORY 
H > INCR. MEMORY POINTER 
CURAD ;UPDATE CURRENT OPEN ADDR 
A,L 
H eOUT OF ADDRESSABLE MEMORY? 
DONE ;YES 
D,MNBEG 
ADCMP :DID WE RUN INTO MONITOR? 
DONE ;YES 
INPHX ;LOOK FOR MORE DATA 
MOD1 ;NO DATA, GO EXAM NEXT 
MOD3 ;ELSE, GO DEPOSIT NEXT. 


B12E 
Q12E 
B12E 
G131 
0134 
9134 
8137 
B13A 
@13B 
Q13E 
@141 
6141 
O141 
0141 
Q142 
0143 
0146 
0149 
~814C 
@14D 
0152 
0152 
0150 
0150 
@151 
@154 
8155 
0156 
@159 
O15A 
015B 
@15C 
B15D 
0162 
0163 
0164 
0167 
B16A 
816D 


BA 
58 


74 
34 


74 
58 


Ol 


63 


63 
6D 


D8 
54 
1A 


03 
G2 


02 
1 


G2 
01 


83 


Bl 


01 
O01 


G2 
01 
08 


1720 


1730 
1740 
1750 
1768 
1770 
1780 
1790 
18096 
1810 
1828 
1830 
1840 
1858 
1860 
1870 
1880 
1890 
1980 
1916 
1920 
1930 
1948 
1958 
1960 
1978 
1980 
1990 
2000 
2010 
2820 
2030 
2040 
2050 
2060 
2078 
2080 
2090 
2100 


* 


* MEMORY SEARCH 
oe | 


MSRCH CALL 


* 


MSRC 


& 


CALL 


* ONE~BYTE 


* 


MSRC1 LDAX 


* 


CMP 


* TWO-BYTE 


* 


MSRC2 MOV 


MSR2L 


MSR2N 


CALL 
LDAX 
CMP 


D 
D 
oe?) 
c 


OUTCH 
ADRNG 


;"ECHO" 2ND CHAR. OF COMMAND 
;GET BEGIN. & ENDING ADDR 
;OF SEARCH FIELD IN DE, HL 
;GET 1ST BYTE OF SEARCH ARG. 
;MUST ENTER 


INPHX 
MSRC 
B,A 
INPHX 
MSRC2 


>GET 2ND BYTE OF SEARCH ARG. 
;JUMP IF IT WAS ENTERED 


SEARCH — SEARCH ARGUMENT IN REG. B 
D 
B *LOOK FOR MATCH 

MSDSP ;DISPLAY MEMORY IF FOUND 
ADCMP ;END OF SEARCH FIELD? 
DONE ;:YES 


D ;INCR. MEMORY POINTER 
MSRC1L ;AND LOOP AGAIN 


SEARCH ~— SEARCH ARGUMENT IN B=-C 


C,A 
WAIT +:ABORT OR CONTINUE 
D 
B *LOOK FOR MATCH ON 1ST BYTE 
MSR2N ;JUMP IF NO MATCH 
*LOOK FOR MATCH ON 2ND BYTE 
MSR2N ;JUMP IF NO MATCH 
MSDSP ;DISPLAY MEMORY 
D e INCR. MEMORY POINTER 
ADCMP :END OF SEARCH FIELD? 
MSR2L ;NO 
DONE ;YES 


G2 
83 


63 


83 


02 
03 


01 
O01 


a3 


2110 
2128 
2138 
2140 
2158 
2160 
2170 
2188 
2198 
2208 
2210 


2220 


2230 
2240 
2250 


2260 


2270 
2288 
2290 
2300 
2310 
2320 
2330 
2340 
2350 
2360 
2370 
2380 
2398 
2400 
2410 
2420 


+ + + & + 


MSDSP 


MSDS2 


MSDS3 


PUSH 


PUSH 


DCX 
DCX 
DCX 
DCX 
DCX 
CALL 
MVI 
CALL 
MVI 
MVI 
CALL 
MVI 
MVI 
CALL 
LDAX 
CALL 
CALL 
INX 
DCR 
JNZ 
DCR 


— IJNZ 


POP 
POP 
JMP 


OR TEN 


MSDS3 
B 
MSDS2 
D 

B 
WAIT 


DISPLAY MEMORY AROUND THE MATCHING DATA, 
SHOWS FIVE BYTES BEFORE THE MATCHING DATA 
AND NINE 


BYTES AFTER IT. 


;BACK UP 5 BYTES 


;DISPLAY THE ADDRESS 


7; FOLLOWED BY A COLON 
;COUNTER FOR FOUR GROUPS 


71 EXTRA SPACE BETWEEN GRPS 
7;FOUR BYTES PER GROUP 


>1 SPACE BETWEEN BYTES 


*DISPLAY A BYTE IN HEX 
>"PANIC CHECK" 

>INCR. MEMORY POINTER 
*AT END OF GROUP? 

*NO 

-AT END OF LINE? 

*NO 


; ABORT OR CONTINUE 


O19F 
O19F 
G19F 
O19F 
Q19F 
Q1A2 
O1A2 
®1A5 
@1A5 
G@1A6 
B1AS 
B1AC 
B1AD 
G1AE 
O1AE 
O1LAF 
G1B2 
G1B3 
G1B4 
Q1B7 
G1BA 
01BB 
G1IBC 
G1BF 
O1BF 
O1BF 
O1BF 
G1C2 
G@1C2 
91C3 
01C6 
O1C9 
O1CA 
H1CB 
Q1CB 
91CC 
®1CF 
61D 
@1D1 
G1D2 
®1D3 
®@1D4 
91D5 
G1D8 
§1DB 
@1DC 
®1DE 
O1E] 
Q1E3 
B1E6 
Q1E?7 
O1E8 
0 1EB 
B1EE 
OB1F1 
O1F4 
G1F5 
QO1F6 


~~ B1FY 


56 


CO 


67 


A6 


Gl 


D8 
1A 


B2 


58 


67 
C3 


61 


92 
B2 


62 


01 


03 


02 
00 


O01 


02 


Q2 
01 


03 


2430 


* 


* TRANSFER (BLOCK MOVE). 


* TO RESULT FIELD, PROCEEDING FROM LEFT. TO 


ADRNG 
ADRCH 
H 


ADRIN 
TXFR2 


B,H 


C,L 


H 
WAIT 
B 

D 
ADCMP 
DONE 
B 

D 
TXLUP 


;GET BEGIN. & ENDING ADDR 
;OF RESULT FIELD IN DE, HL 
;MAKE SURE RESULT FIELD IS 
;OUTSIDE MONITOR AREA, 


7;SAVE ENDING ADDR 


;GET BEGIN. ADDR OF SOURCE 


;MUST ENTER 


*BC=BEGIN. ADDR OF SOURCE 
;DE=BEGIN. ADDR OF RESULT 
;HL=ENDING ADDR OF RESULT 
*ABORT OR CONTINUE 

*MOVE ONE BYTE FROM 
;SOURCE TO RESULT FIELD 
-AT END OF RESULT FIELD? 
°YES 

*INCR. SOURCE AND 

*RESULT POINTERS 

;AND LOOP UNTIL DONE, 


* VERIFY (BLOCK COMPARE) 


2440 
2450 

2460 * RIGHT. 
2470 * 

2480 TXFER CALL 
2490 * 

2500 CALL 
2510 * 

2520 PUSH 
2530 TXFR2 CALL 
2540 JZ 
2550 MOV 
2560 MOV 
2578 * 

2580 POP 
2598 CALL 
2600 TXLUP LDAX 
2610 STAX 
2620 CALL 
2630 INC 
2640 INX 
2650 INX 
2660 JMP 
2670 * 

2680 

2690 * 

2700 VERFY CALL 
2710 * 

2720 PUSH 
2738 VFY2 CALL 
2740 JZ 
2759 MOV 
2760 MOV 
27708 * 

2780 POP 
2790 CALL 
2800 VFLUP LDAX 
2816 PUSH 
2826 MOV 
2830 LDAX 
2849 CMP 
2850 POP 
2868 JZ 
2870 CALL 
2880 PUSH 
2890 MVI 
2908 CALL 
2910 MVI 
2920 CALL 
2930 POP 
2940 LDAX 
2950 CALL 
2960 CALL 
2978 VFNXT CALL 
2980 INC 
2998 INX 
3000 INX 
3010 IMP. 


ADRNG 


ed 
| 
a) 


wwWonwnwnwsen 
aot 


VENXT 
ADNEW 
B 

By oe 
OUTCH 
B, 20H 
OUTCH 
B 

D 
OUTHX 
WAIT 
ADCMP 
DONE 
B 

D 
VFLUP 


;GET BEGIN. & ENDING ADDR 
;OF RESULT FIELD IN DE, HL 
7SAVE ENDING ADDR 

;GET BEGIN. ADDR OF SOURCE 
;MUST ENTER 


>;BC=BEGIN. ADDR OF SOURCE 
;DE=BEGIN. ADDR OF RESULT 
;HL=ENDING ADDR OF RESULT 
;ABORT OR CONTINUE? 


;B=SOURCE BYTE 
;A=RESULT BYTE 
;ARE THEY EQUAL? 


°YES 
*DISPLAY RESULT ADDR 


¢ COLON 


e SPACE 


>DISPLAY RESULT BYTE 
*ABORT OR CONTINUE 
°*AT ENDING ADDRESS? 
2YES 

*INCR. SOURCE AND 
*>RESULT POINTERS 

*AND LOOP UNTIL DONE, 


MOVE IS FROM SOURCE 


B1E9 


D1P9 
B1F9 
G1FC 
@1FC 
@1FF 
O1FF 
8261 
0204 
0207 
8208 
820B 
G20C 
Q820D 
0210 
8213 
G214 
@217 
Q@217 
$217 
Q@217 
Q217 
6217 
O21A 
Q@21B 

O21E 
9220 

622) 
@224 
8227 
9228 
08228 
8228 
4228 
0228 
@22B 
922E 
G23] 
0234 
8235 
9236 
9239 
023B 
G823C 
QG23F 
0242 
0245 
8246 
8246 
@249 
Q@24C 

“O24C 

#9258 


56 
CO 
09 
74 
9B 


81 


-D8 


1A 


6B 


Ol 


04 
F3 


46 
31 


82 
02 
B82 
62 
03 
92 
8B 


G2 


G3 


0B 


02 
03 


* 


* PILL MEMORY WITH A CONSTANT. 


* 


FILL CALL ADRNG ;GET BEGIN. & ENDING ADDR 
* -OF RESULT FIELD IN DE, HL 
CALL ADRCH ;:MAKE SURE RESULT FIELD IS 
x ;OUTSIDE MONITOR AREA 
MVI B,@ *SET DEFAULT FILLER BYTE 
CALL INPHX ;GET OPTIONAL FILLER BYTE 
JZ FILLP ;JUMP IF NOTHING ENTERED 
B,A >IT WAS ENTERED, SAVE IT 
CALL WAIT ;ABORT OR CONTINUE 
FILLP MOV A,B *RESTORE FILLER BYTE 
STAX D >STORE FILL CHARACTER 
CALL ADCMP ;AT ENDING ADDRESS? 
DONE 3;:YES 
INX D *INCR. MEMORY POINTER 
FILLP :AND LOOP UNTIL DONE, 


GO TO EXTERNAL MONITOR OR OPERATING SYSTEM. 
USER SHOULD PATCH THE NOP, LXI AND MVI INS- 
TRUCTIONS AS NEEDED FOR HIS SYSTEM. 


+ + + OF F 


QUIT CALL WAIT -ABORT OR CONTINUE 

NOP »>FOR LOADER CONTROL BYTE 

LXI 4H,START+4 ;ADDR OF EXTERNAL PGM 

MVI A,@F3H ;FIRST BYTE OF EXTRNL PGM 
CMP M *-IS EXTERNAL PGM LOADED? 

JNZ NOPGM  ;NO 

CALL OUTNL ;START NEW LINE 


PCHL *>JUMP TO EXTERNAL PGM 


JUMP TO USER PROGRAM ENTRY POINT. AN OR- 
DERLY RETURN WILL GET BACK TO COMMAND MODE. 


+ + F & 


JUMP ;LOAD CURRENT OPEN ADDR 
7;GET OPTIONAL ADDRESS 
;JUMP IF NOTHING ENTERED 
;CONTINUE OR ABORT 

JMP2 
;MAKE SURE ADDR IS 


sOUTSIDE MONITOR AREA. 


! sDOES A PROGRAM EXIST HERE? 
NOPGM ;NO 

UPDATE CURRENT OPEN ADDR 
;START NEW LINE 

>JUMP TO USER ROUTINE 

NOPGM LXI  H,TMSGP 
MSOUT 


>SHOW ERROR MESSAGE AND 
;GO BACK TO COMMAND MODE. 


DS 4 ;FOR EXPANSION 


8258 
8258 
0258 
9250 
0250 
0250 
8250 
G258 
9253 
0256 
9257 
B25A 
@25D 
0268 
9261 
0261 
0264 
8267 
0267 
0267 
9267 
8267 
8267 
8267 
0267 
8267 
Q26A 
%26B 
@26C 
@26F 
G272 
8273 
B274 


67 
58 


67 
57 
D8 


A4 


1D 


74 


74 


6C 


02 
B2 


82 


02 
02 


03 
08 


02 


G2 
82 


3550 
3569 
3570 
3580 
3598 
3600 
36180 
3620 
3630 
3649 
3658 
3660 
36706 
3688 
3690 
3700 
37198 
3720 
3730 
3748 
3750 
3760 
3770 
3780 
3798 
3800 
3810 
3820 
3830 
3848 
3858 
3860 
3878 


* 
KkKEKKKKKKEN KKK KKK AK KR KK aR Ka KKK Ra KK aK 
* SYSTEM SUBROUTINES . 
kkKeRKKKKKKKKKKKKKKKKRKRKKKKRKKKRKKKKRKKKRKKKK KKK KK 
x 
* GET REQUIRED ADDRESS RANGE FROM KEYBOARD. 
* EXIT: DE = BEGIN. ADDR, HL = ENDING ADDR 
* 
ADRNG CALL ADRIN ;GET BEGIN. ADDR 
JZ ADRNG ;MUST ENTER 
;BEGIN. ADDR TO D<E 


ADRN2 CALL ADRIN ;GET ENDING ADDR 
JZ ADRN2 ;MUST ENTER 
CALL ADCMP ;IS HL > DE? 
RC ;YES, RETURN TO CALLER 
* 
BADRN LXI H,TMSGR ;NO, SHOW ERROR MSG. AND 
JMP MSOUT ;RETURN TO COMMAND MODE. 
* 
* GET ADDRESS IN H=L FROM KEYBOARD. USER MAY 
* INSTEAD TYPE °R TO BYPASS OPTIONAL ENTRY. 
* AT EXIT: IF NO DATA WAS ENTERED, ZERO FLAG 
* IS SET AND CONTENTS OF H-L ARE PRESERVED. 
* OTHERWISE, ZERO FLAG IS RE=SET AND H=L CON- 
* TAINS VALID DATA. | 
* 
ADRIN CALL INPHX ;GET HIGH ADDR BYTE 
RZ ;RETURN IF NO ENTRY 
MOV H,A 


ADIN2 CALL INPHX ;GET LOW ADDR BYTE 


JZ ADIN2 ;MUST ENTER IT! 
MOV L,A 
RET 


6274 
O274 
G274 
@274 
8274 


9274 


8274 
0274 
0275 
@276 
6278 
O27A 
@27D 
O27E 
O27F 
9282 
0284 
8287 
8289 
Q@28C 
G28F 
G292 
9294 
9297 
9299 
G29C 
O29E 
O2Al 
92A3 
@2A6 
@2A8 
Q@2AA 
8 2AB 
O2AC 
B2AF 
0230 
G2B] 
82B2 
02B3 
92B4 
Q2B5 
82B8 
92B9 
8 2BC 
9 2BD 
0 2BE 
0 2BF 
02CB 


BA 


7A 


83 


G2 
G2 


G2 


83 
02 


82 
O2 
02 


G2 


G2 


83 


G2 


3880 


3890 
3900 
39108 
3920 
3930 
3940 
3958 
3968 
3978 
3980 
3998 


4000 


4010 
4020 
4030 
4040 
4050 
4060 
4970 
4080 
4090 
4100 
4110 
4120 
4130 
4140 
4150 
4160 
4170 
4180 
4190 
4200 
4210 
4220 
4230 
4240 
4250 
4260 
4270 
4280 
4290 
4300 
4310 
4320 
4330 
4340 
4350 


+ + € Fe eH EF F 


AT EXIT: 
IS SET. 


INPHX PUSH B 


INP2A 


INP2B 


INP2C 


INP2D 


INPXT 


PUSH 
MVI 
MVI 
CALL 
MOV 


D 
D,1 


INPUT 2 HEX DIGITS AND ASSEMBLE SINGLE BYTE 
IN ACCUMULATOR. 
NOT ECHOED AND NOT USED, 

IF NO DATA WAS ENTERED, 
OTHERWISE, 
AND ACCUMULATOR CONTAINS VALID DATA, 


INVALID HEX CHARACTERS ARE 


ZERO FLAG 
ZERO FLAG IS RE-SET 


;BYTE COUNTER 
;WORK REGISTER 
;GET CHARACTER FROM KEYBOARD 


;AT FIRST HEX CHAR.? 
NO, CR & SP NOT ALLOWED. 
;CARRIAGE RETURN? 


:YES, RETURN WITH Z FLAG SET 


e SPACE? 

eNO 

*ECHO THE SPACE 

-AND GO BACK FOR NEXT CHAR. 
sVALID DIGIT 8-9? 

-NO, TRY AGAIN.) 


“YES 
;VALID HEX DIGIT A-F? 
;NO, TRY AGAIN. 


;A-F BECOMES BINARY 198-15 
;ZERO LEFTMOST 4 BITS 


eAT FIRST HEX CHAR.? 
*NO | 
>SHIFT LEFT 4 BITS 


>"“OR" HEX DIGIT WITH 
;BYTE BEING ASSEMBLED 
;ECHO THE ORIGINAL CHAR. 
;DECREMENT DIGIT COUNTER 
; AND GO BACK ONCE MORE. 
;DATA TO ACCUMULATOR 


02CB 
82Ca 
02C0 
02C0 
92CB 
82CO 
82CB 
B2C0 
82Cl 
Q2C4 
02C7 
02C8 
22C9 
B2CA 
@2CD 
82D 
§2D1 
82D2 
82D2 
82D5 
62D8 
82D8 
8 2D8 
62D8 
02D8 
82D8 
82D9 
02DA 
02DB 
02DC 
0 2DD 
02DE 
02DE 
@2DE 
02DE 
02E1 
@2E2 
@2E5 
82E6 
02E6 
82E6 
Q2E6 
02E6 


Q2E7 
G2E8 


92E9 
O2EA 
§2EB 
02EE 
O2EF 
O2EF 


O2F1 | 


92F3 
B2E5 
O2F8 
O2FA 
O2FB 


O2FC 


@2FF 
0300 


0B 
D8 


FF 


D8 


94 
1D 


31 


E6 


EF 


OF 
30° 


3A 
FA 


07 


BA 


BC 
G2 


FE 
G2 


G3 


00 - 


03 


82 


02 


92 


93 


4360 
4370 


4380. 
4390. 


4409 
44190 
4420 
4430 


4449 


4459 
4468 
4476 
4480 
4490 


4500 


4519 
4520 
4530 
4548 
4550 
4560 
4570 
4580 
4596 
4600 
4610 
4626 
4630 
4649 
4650 


4660, 


4670 
4688 
4696 
4700 
4710 
4720 
4730 
474@ 
4750 
4760 
4770 


4780. 


4790 
4800 
4810 
4820 
4830 


4840 


4859 
4860 
4870 
488@ 
4899 
4990 
4919 
4928 
4930 
4940 


4950 
4960 


+ + + FF Oe OH 


DETERMINE WHETHER OR NOT PART OR ALL OF AN 

ADDR. RANGE FALLS WITHIN THE MONITOR AREA, 

IF SO, SHOW ERROR MESSAGE AND GO BACK TO 

COMMAND MODE. 

ENTRY: DE = BEGIN. ADDR, HL = ENDING ADDR 
ASSUMES HL >= DE, 


ADRCH PUSH H 


LXI H,MNEND+1 
CALL ADCMP ;IS BEGIN. ADDR ABOVE MONTR? 
POP 4H 
RNC ;YES, RETURN TO CALLER. 
PUSH D | 
LXI D,MNBEG-1 
CALL ADCMP ;IS ENDING ADDR BELOW MONTR? 
POP D 
RNC ;YES, RETURN TO CALLER. 
* 
LXI H,TMSGV ;NO, SHOW ERROR MSG. AND 
JMP MSOUT ;RETURN TO COMMAND MODE. 


* COMPARE CONTENTS OF D-E WITH CONTENTS OF 


* H-L. RESULT SHOWN BY CARRY AND ZERO FLAGS.) 
* CARRY FLAG IS SET TO 1 IF HL > D-=-E, 
* 
ADCMP MOV A,D 
CMP 4H 7D:H 
RNZ 
MOV A,E 
CMP IL °E:L 
RET 
* 


* DISPLAY THE ADDRESS IN D<-E. 
* | 


>START NEW LINE FIRST 
HIGH BYTE 


ADNEW CALL OUTNL 

ADOUT MOV A,D 
CALL OUTHX 
MOV A,E  ;LOW BYTE 

DISPLAY THE CONTENTS OF THE ACCUMULATOR AS 

TWO HEXADECIMAL DIGITS. 


+ + + & 


OUTHX PUSH PSW ;SAVE ORIGINAL DATA 


RRC ;SHIFT LEFT NYBBLE 

RRC ; INTO POSITION FOR OUTPUT 
RRC 

RRC | 

CALL OUTX ;OUTPUT LEFT DIGIT 

POP PSW ;RESTORE ORIGINAL DATA 


x OUTPUT RIGHT DIGIT AND RETURN. 


OUTX ANI OFH s;OTRIP LEFTMOST 4 BITS 
ORI 30H CONVERT TO ASCII CHAR. 
CPI 3AH 710-15? 
JC OUTXT ;NO | 
ADI 7 7YES, CONVERT TO ALPHA 
OUTXT PUSH B> 
MOV B,A ;B=ASCII CHAR. FOR ECHO 
CALL OUTCH ;DISPLAY IT 
POP B 
RET 


B4 
O01 
TF 
9D 


49 
O01 


63 


BA 


18 


20 
BA 


28 


93 
03 


03 
03 


03 
G3 


03 


03 


03 
03 


4970 
4980 
4999 


5808 


5010 
5020 
5030 
5040 
5050 
5060 
5070 
5080 
5099 
5100 
5119 
5120 
5130 
5140 
5150 
5160 
5170 
5180 
5190 
5200 
5210 
5220 
5230 
5240 
5250 
5268 
5270 
5 280 
5290 
5 300 
5310 
5320 
5330 
5340 
5350 
5360 
5370 
5380 
5390 
5400 


54120 


5420 
5439 
5446 
5450 
5460 
5470 
5480 


5496 


+ 


* GET USER TO ENTER CR TO CONTINUE PROCESS- 


* ING, OR @ TO ABORT. 
te. 
WAIT CALL INPCH ;GET A CHARACTER 
JZ WAIT ;LOOP IF NOT AVAILABLE 
ANI 7FH ;STRIP PARITY BIT 
CPI CR ;CARRIAGE RETURN? 
RZ ;YES, RETURN TO CALLER 
CPI '@'  ;WANT TO ABORT? 
JNZ WAIT ;NO, TRY AGAIN 
MOV B,A 
JMP ABORT ;YES 
te 
* OUTPUT A CHARACTER STRING (BLOCK) UP TO 256 
* BYTES IN LENGTH, THE STRING TO BE OUTPUT 
* MUST BE PRECEEDED BY A 1-BYTE LENGTH FIELD. 
* ENTRY: HL POINTS TO LENGTH FIELD + STRING 
* 
OUTBL PUSH H 


PUSH B 
MOV C,M ;C=BYTE COUNT 
OUTB2 INX H ;INCR. POINTER 
MOV B,M *;B=CHAR. TO OUTPUT 
CALL OUTCH ;OUTPUT IT 
DCR C 7;DECREMENT COUNTER 
JNZ OUTB2 ;NO, LOOP UNTIL DONE 
POP B | 
POP 4H 
RET 
* | 
* OUTPUT BLANK SPACES. 
* ENTRY: ACC. HAS NUMBER OF SPACES TO OUTPUT. 
# 
OUTSP PUSH B 


MOV C,A  ;COUNTER 

MVI B,2@H ;SPACE 
OUTS2 CALL OUTCH 

DCR C 

JNZ OUTS2 

POP B 

RET 
* 
* START NEW LINE ON CONSOLE OUTPUT DEVICE. 
* CR AND LF ARE OUTPUTTED. 
* 
OUTNL PUSH B 

MVI B,CR 

CALL OUTCH 

MVI B,LF 

CALL OUTCH 

POP B 

RET 


0335 
Q33E 
Q33E 
033E 
033E 
Q33E 
0341 
0344 
$346 
0348 
034B 
034D 
0350 
9352 
0353 
0355 
0358 
8359 
0359 
8359 
0359 
0359 
035C 
@35D 
Q35F 
0361 
0362 
0363 
0366 
0369 
0369 
$369 
9369 
0369 
0369 
036A 
036C 
036D 


837D 
Q37E 
0382 
0383 


0394 
0395 


03A4 
O3A5 


O3AE 


B4 
TF 
40 


BA 
23 


03 
03 


G3 


83 


03 


03 


03 
02 


5500 


5510 
5520 
5530 
5540 
5550 
5568 
5570 
5580 
5590 
5600 
5610 
5620 
5630 
5640 
5650 
5660 
5670 
5680 
5690 
5700 
5710 
5720 
5730 
5740 
5750 
5760 
5770 
5780 
5790 
5800 
5810 
5820 
5830 
5840 
5850 
5860 
5870 
5880 


5890 
5980 
5919 
5920 


5938 
994¢ 


5950 
5960 


* ee ee He 


INASC CALL 


INAS 2 


* 

* RE-START 

* IF NOT, RETURN 
x 


PANIC CALL 


ABORT 


* 


kaka KKKkKRKKKKKKKKKRKEKKKKKKKKKKRKKRKKKKKRKKKKRKRKRKRKKR RK 


ae 


INPCH 
INASC 
7FH 
61H 


INAS 2 


7AH+1 
INAS 2 
SFH 
B,A 
a 
ABORT 


GET AN ASCII CHARACTER FROM KEYBOARD. 
LOWERCASE A-Z ARE CONVERTED TO UPPERCASE. 
RE-STARTS SYSTEM IF PANIC CHARACTER HIT. 
EXIT: CHARACTER IS IN ACC. AND REG. B. 


7;GET A CHARACTER 

;LOOP IF NOT AVAILABLE 
;STRIP PARITY BIT. © 

; LOWERCASE A-2Z? 


»NO 

7YES, MAKE IT UPPERCASE 
>FOR “ECHO" 

*WANT TO ABORT? 

-YES 

eNO 


SYSTEM IF PANIC CHARACTER HIT 


INPCH 
7 FH 
B,A 


OUTCH 
MONTR 


TO CALLER. 


;LOOK FOR CHARACTER | 
;RETURN IF NOTHING ENTERED 
;STRIP PARITY BIT 


 3PANIC CHARACTER? 


;RETURN IF NOT 


;"ECHO" THE PANIC CHAR. 


* SYSTEM MESSAGES AND PROMPTS 


KHKKKHKKEKKHKKKEKKKKKKKKKKKKKRKKKKKKKKKKKKKRK KKK KKK 


* 


PGMHD 


TMSGD 


TMSGP 


TMSGV 


TMSGR 


DB 


DW 
DB 
ASC 


DB 
ASC 
DB 
ASC 


DB 
ASC 


DB 
ASC 


49H 


;LOADER CONTROL BYTE 


TINIT-PGMHD ;DATA BYTE COUNT 


16 


"ESF MONITOR V2.2' 


4 
"DONE! 
17 


"PROGRAM NOT FOUND' 


15 


'VIOLATES SYSTEM’ 


9 


"BAD RANGE’ 


14 


O3AE 
O3AE 
@3AE 
®3AE 
0 3AE 
Q3AE 
O3AE 
O3AE 
O3AE 
O3AE 
O3AE 
O3AE 
9 3AE 
03AE 
03Bl1 
O3B4 
@3B4 
Q3B4 
03B4 
83B4 
03B4 
03B4 
03B7 
O3BA 
O3BA 
Q3BA 
Q3BA 
O3BA 
9 3BD 
83CB 
03CB 
93CB 
93CO 
93CH 
03C8 
—3CB 
03CB 
Q3E4 
O3E4 
B3E4 
O3E4 
Q3E4 
0354 
Q3E4 
O34 


Q3E5 


O3E7 
93E7 


Q3EC 
93F1 
93F6 
O3FB 


0400 


C3 AE 03 


C3 B4 63 


C3 BA 63 


00 
43 
47 
53 
43 
57 


41 
45 
4] 
45 


54 


54 
54 
56 
52 


58 


+e OF ee OF 


* 


kKkhekkkkkkkkkhhhkhhhhkkeehhhkhkkkkkkhkhkkhhhhhhkek 


* JUMP TABLE FOR CONSOLE TERMINAL 1/8 * 


* COMPATIBLE WITH PROCESSOR TECH. 


"SOLOS" 


KKKMEKKKEKKERKKKKKREKKEKKKRKKKEKKKKKKEKKEKRKRKKKKRK SK 


* 


+ + + FE EF HF FH 


USER MUST PLACE JUMPS TO CUSTOM 1/0 
ROUTINES AT TINIT, | 
EXTERNAL SUBROUTINES MUST RETURN WITH CON- 
TENTS OF REGISTER PAIRS BC, DE AND HL LEFT 
INTACT. 


INPCH AND OUTCH. 


TERMINAL DEVICE INITIALIZATION 


TINIT JMP TINIT ;FOR SOLOS: C9 08 8B 


EXIT: 


DS 


INPCH JMP 


+ + & F. 


OUTCH JMP OUTCH 


+ + + &F F HF F 


+ + + F & FF 


ERTBG 


ECAT 


EGET 


ESAV 


ECER 


EWTP 


DS 


OUTPUT THE CHARACTER IN REG. 
TO THE CONSOLE OUTPUT DEVICE. 


DS 


MEMORY. 


DS 


3 ;NOT USED IN THIS VERSION 


INPUT ONE BINARY CHARACTER (ALL 8 BITS) 
FROM CONSOLE KEYBOARD 
ZERO FLAG OFF = 
ZERO FLAG SET = 


INTO THE ACCUMULATOR. 
ACC. HAS VALID CHAR. 
DATA NOT AVAILABLE 


INPCH ;FOR 
3 eNOT 


SOLOS: C3 1F C@ 
USED IN THIS VERSION 


B (ALL 8 BITS) 


;FOR SOLOS: C3 19 C8 
3 ;NOT USED IN THIS VERSION 


THIS AREA RESERVED FOR CUSTOM I/O ROUTINES. 
ENOUGH SPACE IS PROVIDED FOR A DRIVER FOR 
ALMOST ANY DEVICE EXCEPT VIDEO DISPLAY 
DRIVERS FOR VDM, VTI, 
HAVE TO BE LOCATED ELSEWHERE. 


ETC. WILL 


36 ;64+ERTBG-ERTEN-3 


EXTERNAL REFERENCE TABLE FOR PARTS 2 AND 3 


ONCE THE MONITOR HAS BEEN RELOCATED AS 
REQUIRED, THIS TABLE IS NO LONGER NEEDED 
AND MAY BE OVERLAYED BY I/O ROUTINES.) 


64H  ;LOADER CONTROL BYTES 
ERTEN-ERTBG 

> . 

'ECAT ' 

'RGET ' 

'ESAV ' 

'ECER ! 


"EWTP ' 


0363 
82D8 
826C 
Q2DE 
Q2EI 
02CB 
0267 
8257 
9252 
0261 
G8OD 
FFF I 
0087 
OB1A 
GO8E 
GOA2 
O8AC 
08B3 
GOD1 
Q3E7 
Q3F6 
Q3EC 
O3E7 
04008 
O3F1 


O@3FB 


FFF 3 
B1F9 
920B 
Q82E 


(9352 


O33E 
B27A 
0292 
02A8 
02B3 
O3B4 
G274 
0 2BD 
0234 
9228 
ZOOA 
0877 
FFOQ 
OBFF 
FF4Q 
OOE6 


O10B 


6500 


65108 


65208 


—-66538 
—-«65 48 


5898 
1958 
3858 
1088 


| =158¢ 


0970 
3670 
1760 
1868 
0570 
0400 
0690 
1659 
1290 
1048 
1268 
1249 
1220 


6430 
6430 


07180 
3119 
G600 
5628 
0560 
4998 
4630 
4138 
4220 
50190 
1580 
4950 
3390 
0730 
0598 
0758 
1668 
4458 
6370 
1360 


1510 


6550 
6560 
6570 
6580 
6590 


56686 


1200 | 


1400 


25008 
1838 


2480 
4040 
1348 
0982 
1680 


1278 


3190 


56 26 


8882 


4110 
4070 


5560 
1690 


54686 
0932 
4500 


0520 
1538 


ERTEN EOU $ 


= SYSTEM WORK AREAS 


* 


MNBEG 


MNSTK 
CURAD 
FCB 

MNEND 


4000 
4150 


5720 
1786 


17090 


EQU 
EQU 
EQU 
EQU 
EQU 


1890 
2876 


3438 
2530 


3058 


5440 
1628 


2100 


START=256 
START=-192 
START-@15 
START-813 
START+9COBH~1 


2088 


2730 


3648 


3379 


2630 


4318 


2628 2970 3168 3688 4460 4510 


;SYSTEM BEGINS HERE 
;TOP OF STACK + 1 
;CURRENT OPEN ADDR 
7;FILE CONTROL BLOCK 
;SYSTEM ENDS HERE 


3388 3630 3660 


3478 


2988 3170 


3198 3818 38498 


15 


MOD3 

MODFY 
MONTR 
MSDS2 
MSDS3 
MSDSP 
MSOUT 
MSR2L 
MSR2N 
MSRC 

MSRC1 
MSRC2 
MSRCH 
NOPGM 
OUTB2 
OUTBL 
OUTCH 


OUTHX 
OUTNL 
OUTS 2 
OUTSP 
OUTX 
OUTXT 
PANIC 
PGMHD 
PROMP 
PSW 
QUIT 
SP 
START 
STRT1 
TESTC 
TINIT 
TMSGD 
TMSGP 
TMSGR 
TMSGV 
TXFER 
TXFR2 
TXLUP 
VERFY 
VFLUP 
VENXT 
VEY2 
WAIT 


FCHK 


A. 


3008 886A 


1710 
0920 
0350 
2390 
2370 
1889 
0420 
2098 
2000 
1798 
1920 
1820 
B90B 
33080 
5230 
0460 
9550 
4080 
1180 
0458 
5368 
1139 
4840 
4980 
1198 
0419 
9588 
4790 
0770 
9370 
0820 
0300 
9650 
0380 
0440 
3510 
3710 
4550 
0790 
2540 
2660 
0812 
30192 
2860 
2748 
1872 
5870 


0390 
2060 
3520 


2858 


3468 


8610 


4290 
1460 
0538 


1168 


2348 
5860 


0640 


4858 


0528 
0860 


5860 


1370 1978 2428 2598 2798 2968 3138 3250 3400 5920 


0668 


3720 


1100 
4940 
2330 
1280 


2280 


3279 


6110 


5798 


4560 


1330 
5210 
2950 
3318 


2310 


1428 1440 1480 17580 2258 2988 2920 
53480 5458 5478 5788 6250 


4730 


3480 4710 


